home *** CD-ROM | disk | FTP | other *** search
/ Champak 26 (Anniversary Edition) / Volume 26 [Anniversary Edition] - JOGO DISK .iso / DEPOSITO / REmovido / Puzzle / SnakeMania.exe / scripts / DefineSprite_171 / frame_7 / DoAction.as
Text File  |  2002-06-06  |  6KB  |  100 lines
  1. if(eval("_level0/game:pause"))
  2. {
  3.    gotoAndPlay(10);
  4. }
  5. set("_level0/game:" add _name add "lasttime",eval("_level0/game:" add _name add "currtime"));
  6. set("_level0/game:" add _name add "currtime",getTimer());
  7. set("_level0/game:" add _name add "timeelapse",eval("_level0/game:" add _name add "timeelapse") + eval("_level0/game:" add _name add "currtime") - eval("_level0/game:" add _name add "lasttime"));
  8. if(eval("_level0/game:" add _name add "ORGdelaytime") < eval("_level0/game:" add _name add "timeelapse"))
  9. {
  10.    set("_level0/game:" add _name add "timeelapse","0");
  11.    set("_level0/game:" add _name add "step",mbsubstring(eval("_level0/game:" add _name add "speedstr"),eval("_level0/game:" add _name add "speed") * "2" + "1","2"));
  12.    if(eval("_level0/game:" add _name add "atarray") < eval("_level0/game:" add _name add "length"))
  13.    {
  14.       set("_level0/game:" add _name add "atarray",eval("_level0/game:" add _name add "atarray") + "1");
  15.    }
  16.    else
  17.    {
  18.       set("_level0/game:" add _name add "atarray","1");
  19.    }
  20.    set("_level0/game:" add _name add "dir",eval("_level0/game:" add _name add "nxdir"));
  21.    set("_level0/game:" add _name add "xposarray" add eval("_level0/game:" add _name add "atarray"),eval("_level0/game:" add _name add "xpos"));
  22.    set("_level0/game:" add _name add "yposarray" add eval("_level0/game:" add _name add "atarray"),eval("_level0/game:" add _name add "ypos"));
  23.    set("_level0/game:" add _name add "lxpos",eval("_level0/game:" add _name add "xpos"));
  24.    set("_level0/game:" add _name add "lypos",eval("_level0/game:" add _name add "ypos"));
  25.    set("_level0/game:" add _name add "changedir","0");
  26.    if(eval("_level0/game:" add _name add "dir") eq "up")
  27.    {
  28.       set("_level0/game:" add _name add "ypos",eval("_level0/game:" add _name add "ypos") - eval("_level0/game:" add _name add "step"));
  29.    }
  30.    if(eval("_level0/game:" add _name add "dir") eq "down")
  31.    {
  32.       set("_level0/game:" add _name add "ypos",eval("_level0/game:" add _name add "ypos") + eval("_level0/game:" add _name add "step"));
  33.    }
  34.    if(eval("_level0/game:" add _name add "dir") eq "left")
  35.    {
  36.       set("_level0/game:" add _name add "xpos",eval("_level0/game:" add _name add "xpos") - eval("_level0/game:" add _name add "step"));
  37.    }
  38.    if(eval("_level0/game:" add _name add "dir") eq "right")
  39.    {
  40.       set("_level0/game:" add _name add "xpos",eval("_level0/game:" add _name add "xpos") + eval("_level0/game:" add _name add "step"));
  41.    }
  42.    if(eval("_level0/game:" add _name add "xmax") < eval("_level0/game:" add _name add "xpos") or eval("_level0/game:" add _name add "xpos") < eval("_level0/game:" add _name add "xmin") or eval("_level0/game:" add _name add "ymax") < eval("_level0/game:" add _name add "ypos") or eval("_level0/game:" add _name add "ypos") < eval("_level0/game:" add _name add "ymin"))
  43.    {
  44.       set("_level0/game:" add _name add "die","1");
  45.       gotoAndStop(9);
  46.    }
  47.    set("_level0/game:" add _name add "i","0");
  48.    while(eval("_level0/game:" add _name add "i") < eval("_level0/game:" add _name add "length"))
  49.    {
  50.       set("_level0/game:" add _name add "i",eval("_level0/game:" add _name add "i") + "1");
  51.       if(eval("_level0/game:weggxpos") == eval("_level0/game:" add _name add "xposarray" add eval("_level0/game:" add _name add "i")) and eval("_level0/game:weggypos") == eval("_level0/game:" add _name add "yposarray" add eval("_level0/game:" add _name add "i")))
  52.       {
  53.          set("_level0/game:whiteegg","0");
  54.          set("_level0/game:" add _name add "length",eval("_level0/game:" add _name add "length") + "1");
  55.          set("_level0/game:" add _name add "score",eval("_level0/game:" add _name add "score") + (eval("_level0/game:" add _name add "speed") + "1"));
  56.          length = eval("_level0/game:" add _name add "length") + "1";
  57.          set("_level0/game:" add _name add "score",eval("_level0/game:" add _name add "score") + int("50" / eval("_level0/game:" add _name add "ORGdelaytime") * "12") - "1");
  58.          set("_level0/game/sound:sound","wegg");
  59.          call("setScore");
  60.       }
  61.       if(eval("_level0/game:reggxpos") == eval("_level0/game:" add _name add "xposarray" add eval("_level0/game:" add _name add "i")) and eval("_level0/game:reggypos") == eval("_level0/game:" add _name add "yposarray" add eval("_level0/game:" add _name add "i")))
  62.       {
  63.          set("_level0/game:redegg","0");
  64.          if("50" < eval("_level0/game:" add _name add "ORGdelaytime"))
  65.          {
  66.             set("_level0/game:" add _name add "ORGdelaytime",eval("_level0/game:" add _name add "ORGdelaytime") - speedstep);
  67.          }
  68.       }
  69.       if(eval("_level0/game:yeggxpos") == eval("_level0/game:" add _name add "xposarray" add eval("_level0/game:" add _name add "i")) and eval("_level0/game:yeggypos") == eval("_level0/game:" add _name add "yposarray" add eval("_level0/game:" add _name add "i")))
  70.       {
  71.          set("_level0/game:yellowegg","0");
  72.          if(eval("_level0/game:" add _name add "ORGdelaytime") < "600")
  73.          {
  74.             set("_level0/game:" add _name add "ORGdelaytime",eval("_level0/game:" add _name add "ORGdelaytime") + speedstep);
  75.          }
  76.       }
  77.    }
  78.    numplayer = eval("_level0/game:numplayer");
  79.    while(numplayer >= "1")
  80.    {
  81.       i = "1";
  82.       while(i < eval("_level0/game:snake" add numplayer add "length"))
  83.       {
  84.          if(eval("_level0/game:" add _name add "xpos") == eval("_level0/game:snake" add numplayer add "xposarray" add i) and eval("_level0/game:" add _name add "ypos") == eval("_level0/game:snake" add numplayer add "yposarray" add i))
  85.          {
  86.             set("_level0/game:" add _name add "die","1");
  87.             gotoAndStop(9);
  88.          }
  89.          i += "1";
  90.       }
  91.       numplayer -= "1";
  92.    }
  93.    setProperty("head", _X, eval("_level0/game:" add _name add "xpos"));
  94.    setProperty("head", _Y, eval("_level0/game:" add _name add "ypos"));
  95.    i = eval("_level0/game:" add _name add "atarray");
  96.    duplicateMovieClip("body","body" add i,i + 16384);
  97.    setProperty("body" add i, _X, eval("_level0/game:" add _name add "xposarray" add i));
  98.    setProperty("body" add i, _Y, eval("_level0/game:" add _name add "yposarray" add i));
  99. }
  100.